home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd1.bin / Software / Servis / X-setup / _SETUP.1 / XQ WinNT Winreg Remote 1.xpl < prev    next >
Text File  |  1999-06-13  |  2KB  |  67 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Network\Security\General"
  5. "NAME"="Remote Registry Access"
  6. "VERSION"="1.12"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Allow EVERYBODY to connect to registry"
  9. "DESCRIPTION 1"="Windows is able to connect to the registry on other computers. Although this makes it possible for the administrator to make some changes to this computer from his machine, it can also be a security problem."
  10. "DESCRIPTION 2"="For example, a hacker could manipulate your registry so every document that is opened is saved in a hidden directory. This hidden directory can then be viewed for useful information."
  11. "DESCRIPTION 3"="If this option is disabled, only Administrators can connect to your machine by default."
  12. "DESCRIPTION 4"=" If the option is enabled, EVERYBODY can connect to your registry can manipulate it."
  13. "AUTHOR"="Xteq Systems"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  16.  
  17.  
  18. sPath="HKLM\System\CurrentControlSet\Control\SecurePipeServers\winreg"
  19. sPath2="HKLM\System\CurrentControlSet\Control\SecurePipeServers\winreg\AllowedPaths"
  20. Sub Plugin_Initialize 
  21.  If GetWinVer=2 then
  22.     if RegPathExists(sPath) then
  23.        SetUIElement 1,false
  24.     else
  25.        SetUIElement 1,true
  26.     end if
  27.  else
  28.   Disable
  29.  end if
  30. End Sub
  31.  
  32. Sub Plugin_CheckData(ElementIndex)
  33. End Sub
  34.  
  35. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  36.  b=GetUIElement(1)
  37.  if b=false then
  38.  
  39.   'Restrict access
  40.   Call RegWriteValue(sPath & "\@","",1)
  41.   Call RegWriteValue(sPath2 & "\@","",1)
  42.  else
  43.  
  44.   'Allow everybody access
  45.   if RegPathExists(sPath2) then
  46.    'delete old stuff
  47.    iC=RegEnumValues(sPath2)
  48.  
  49.    for i=1 to iC
  50.     Call RegDeleteValue(sPath2 & "\" & RegEnumElement(i))
  51.    next
  52.  
  53.    Call RegDeletePath(sPath2)
  54.   end if
  55.  
  56.   if RegPathExists(sPath) then
  57.    Call RegDeletePath(sPath)
  58.   end if
  59.  end if
  60.  
  61.  
  62.  
  63. End Sub
  64.  
  65. Sub Plugin_Terminate 
  66. End Sub
  67.